home *** CD-ROM | disk | FTP | other *** search
- ;*******************************************************************
- ;This script is writen to automate your downloads using the file
- ;clipboard. What you need to do, is input (click) your filenames
- ;to be downloaded into the file clipboard. The script will save
- ;the names to a file (fileclip.txt) then open this file, and send
- ;the names one at a time to the BBS. Afterwards, it will delete
- ;fileclip.txt. It will also signoff the BBS. This script was writen
- ;to work with PCBoard BBS in the expert mode. The only thing you
- ;may have to change is the path for fileclip.txt, if you have
- ;changed the Prowins default directories. Write me back and let me
- ;know what you think. And thanks to the Datastorm Support group for
- ;there help. This is my first one.
- ;Michael Lee Compuserve:75720,1221 Prodigy:XHHJ46A
- ;P.S. I saved this script to a Meta Key, its up to you on how to
- ;start it. Good Luck.
-
- proc main
- termkey 0x4BB ;open fileclip board
- pause 2
- sendkey ALT 'F' ;get to the file menu of the file clip board
- sendkey 'S' ;save clipboard
- sendkey ALT 'O' ;ok save to fileclip.txt
- termkey 0x4bb
- ;sendkey ALT 'F'
- sendkey 'x'
-
- fopen 0 "f:\prowin\capture\fileclip.txt" READ TEXT
- transmit "d^M" ;tell bbs to download
- while not feof 0
- fgets 0 S0
- call process_file
- endwhile
- transmit "g^M"
- fclose 0
- delfile "f:\prowin\capture\fileclip.txt"
- endproc
-
- proc process_file
- waitfor "none?"
- transmit S0
- transmit "^M"
- endproc